﻿Option Explicit On
Imports System.Net

Public Class frmFerramentasTestarConexao

    Private Sub cmdTestar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTestar.Click
        Dim intFase As Integer = 0
        Try
            picRede.Image = picEspera.Image
            picInternet.Image = picEspera.Image

            picRede.Visible = True
            picInternet.Visible = True
            '--
            Call Application.DoEvents()
            intFase = 1
            If My.Computer.Network.IsAvailable = False Then
                picRede.Image = picErro.Image
                lblRede.Text = "Você não está conectado a uma rede!" & vbCrLf & "Certifique se os cabos estão conectados corretamente"
                Exit Sub
            Else
                picRede.Image = picOK.Image
                lblRede.Text = "Conexão de Rede OK!"
            End If
            picRede.Visible = True
            '--
            Call Application.DoEvents()
            intFase = 2
            If Not My.Computer.Network.Ping("www.terra.com.br", 1000) Then
                picInternet.Image = picErro.Image
                lblInternet.Text = "Você não está conectado!" & vbCrLf & "Certifique se os cabos estão conectados corretamente " & vbCrLf & "ou se o servidor DNS está correto."
                Exit Sub
            Else
                picInternet.Image = picOK.Image
                lblInternet.Text = "Conexão com Inernet OK!"
            End If
            picInternet.Visible = True
            '--
        Catch ex As Exception
            Select Case intFase
                Case 1
                Case 2
                    picInternet.Image = picErro.Image
                    lblInternet.Text = "Você não está conectado!" & vbCrLf & "Certifique se os cabos estão conectados corretamente " & vbCrLf & "ou se o servidor DNS está correto."
                Case 3

            End Select
        End Try
    End Sub

    Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        Me.Close()
    End Sub
End Class